home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / 100 mile race (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  195 lines
  1. 10 rem background colors
  2. 20 poke53280,.:poke53281,.:print""
  3. 30 poke53269,0:rem all sprites off
  4. 40 print"[147]":poke56325,60
  5. 50 print"" tab(14) "please wait"
  6. 60 poke54277,0:poke54278,240:poke54282,8:poke54294,128
  7. 70 poke54284,85:poke54285,133:poke54291,10:poke54292,197
  8. 80 fora=0to251
  9. 90 readb:poke21504+a,b
  10. 100 next
  11. 110 fora=0to174
  12. 120 read b:poke20484+a,b
  13. 130 next
  14. 170 v=53248:cx=180:cy=212
  15. 180 rem clear pixel
  16. 190 for i=12288to12798:pokei,0:next
  17. 200 rem turn on sprite memory locations
  18. 210 fori=0to7:poke2040+i,192+i:next
  19. 220 pokev+39,2:fori=4to10:pokev+i+36,i:next:rem colors
  20. 230 rem shape of car
  21. 240 forj=0to448step64
  22. 250 fori=12288+jto12315+jstep3
  23. 260 readb:pokei,b
  24. 270 next
  25. 280 next
  26. 320 fora=0to79
  27. 330 readb:poke20736+a,b
  28. 340 next
  29. 350 fora=0to132
  30. 360 readb:poke21024+a,b
  31. 370 next
  32. 380 fora=0to144
  33. 390 readb:poke21251+a,b
  34. 400 next
  35. 410 fora=0to140
  36. 420 readb:poke21763+a,b
  37. 430 next
  38. 440 fora=0to173
  39. 450 readb:poke22020+a,b
  40. 460 next
  41. 470 print"[147]"
  42. 471 pokev,cx:pokev+1,cy:pokev+14,180:pokev+15,225:pokev+16,66
  43. 472 poke20480,48:poke20481,48:poke20482,48:poke20483,48
  44. 473 poke20994,88:poke20995,45:poke20996,46:poke20997,75
  45. 474 poke20998,176:poke20999,105:poke21000,160:poke21001,135
  46. 475 poke21002,160:poke21003,165:poke21004,18:poke21005,195:poke21007,225
  47. 476 poke21010,88:poke21011,2:poke21012,16:poke21013,4
  48. 477 poke21014,236:poke21015,8:poke21016,70:poke21017,16
  49. 478 poke21018,34:poke21019,32:poke21020,124:poke21021,64
  50. 479 poke21248,48:poke21249,0:poke21250,0
  51. 480 poke21760,0:poke21761,0:poke21762,0
  52. 481 poke22016,15:poke22017,24:poke22018,0:poke22019,4:pokev+3,45
  53. 482 pokev+5,75:pokev+7,105:pokev+9,135:pokev+11,165:pokev+13,195
  54. 483 pokev+2,88:pokev+4,46:pokev+6,176:pokev+8,160:pokev+10,160:pokev+12,18
  55. 489 poke53280,.:poke53281,.:print tab(12) "100 mile  race"
  56. 490 print tab(12) "[158]by randy meyle"
  57. 495 print tab(12) "naperville, il"
  58. 500 print tab(9) "joystick in port   2 [146]"
  59. 510 print tab(9) "[159]move left  and  right"
  60. 520 print tab(9) "shift gears up & down"
  61. 530 print tab(5) "[153]press the fire button to start"
  62. 540 print"[150]           press  q [146] to quit![144]":poke198,.
  63. 550 get a$:ifa$="q"ora$="[209]"then810
  64. 555 forx=0to13:poke55468+x,int(rnd(0)*8+4):next
  65. 557 ifpeek(56320)and16then550
  66. 560 poke53280,12:poke53281,15
  67. 590 print"[147]":pokev+21,255:rem turn on sprites
  68. 592 poke56216,15:poke56217,15:poke56257,15:poke56250,15:poke56290,15
  69. 594 poke56251,15:poke56252,15:poke56253,15:poke56254,15:poke56255,15
  70. 596 poke56256,1:poke56292,1:poke56293,1:poke56294,1
  71. 597 poke56295,1:poke56291,1:poke1984,48
  72. 598 poke2019,48:poke2020,48:poke2021,48:poke2022,46:poke2023,48
  73. 600 rem initial road
  74. 610 goto651:fory=0to800step40
  75. 620 forx=ytoy+15
  76. 630 poke1064+x,39:poke1088+x,39
  77. 640 next
  78. 650 next
  79. 651 r$="''''''''''''''''        ''''''''''''''''":print"":forq=1to22:printr$;:next
  80. 655 poke2003,7:poke2004,15:poke2005,33
  81. 660 t=int(ti/60)
  82. 670 forx=0to1000
  83. 680 geta$:ifa$="q"then6500
  84. 700 sys21251
  85. 720 sys20736
  86. 730 sys22020
  87. 735 ifa$="q"then6500
  88. 740 sys20736
  89. 750 sys21024
  90. 760 sys20736
  91. 770 sys20484
  92. 775 ifa$="q"then6500
  93. 780 sys20736
  94. 790 poke54296,14:sys21763:rem  ifpeek(54296)=.thengosub1600
  95. 800 next
  96. 801 forx=1to2000:next
  97. 802 pokev+21,0:print"[147]"
  98. 804 tf=int(ti/60):m=int((tf-t)/60):s=(tf-t)-60*m
  99. 805 print"elapsed time:":printm;"minutes and";s;"seconds"
  100. 806 printtab(12)"play again?  y/n [146]"
  101. 807 get b$:ifb$=""then807
  102. 808 ifb$="y"thenprint"[153]":goto470
  103. 809 ifb$<>"n"then807
  104. 810 goto6000
  105. 815 rem sound effect data(21504)
  106. 820 data135,97,33,8,17,65,135,97,33,8,17,65,135,97,33,8,17,65,135,97,33
  107. 830 data8,17,65,135,97,33,8,17,65,135,97,33,8,16,64,135,247,33,9,17,65
  108. 840 data135,247,33,9,17,65,135,247,33,9,17,65,135,247,33,9,16,65
  109. 850 data135,247,33,9,17,65,12,247,1,9,0,64,135,143,33,12,17,65,135,143
  110. 860 data33,12,17,65,135,143,33,12,17,65,135,143,33,12,17,65,135,143,33,12
  111. 870 data17,65,135,143,33,12,16,64,223,247,39,9,17,65,223,247,39,9,17,65
  112. 880 data223,247,39,9,17,65,223,247,39,9,16,65,162,247,37,9,17,65,12,247,1
  113. 890 data9,0,64,162,97,37,8,17,65,162,97,37,8,17,65,162,97,37,8,17,65,162
  114. 900 data97,37,8,16,65,135,97,33,8,17,65,12,97,1,8,0,64,135,71,33,6,17,65
  115. 910 data135,71,33,6,17,65,135,71,33,6,17,65,135,71,33,6,16,65,165,71,31,6
  116. 920 data17,65,12,71,1,6,0,64,135,97,33,8,17,65,135,97,33,8,17,65,135,97
  117. 930 data33,8,17,65,135,97,33,8,17,65,135,97,33,8,17,65,135,97,33,8,16,64
  118. 940 rem screen scroll routine(sys20484)
  119. 950 data162,250,189,197,6,157,237,6,202,208,247,162,250,189,203,5,157
  120. 960 data243,5,202,208,247,162,250,189,209,4,157,249,4,202,208,247,162,210
  121. 970 data189,255,3,157,39,4,202,208,247,162,40,169,32,157,255,3,202,208,250
  122. 980 data162,46,142,190,7,174,0,80,232,224,58,240,25,142,191,7,142,0,80
  123. 990 data174,1,80,142,189,7,174,2,80,142,188,7,174,3,80,142,187,7,96,162,48
  124. 1000 data142,0,80,142,191,7,174,1,80,232,224,58,240,19,142,189,7,142,1,80
  125. 1010 data174,2,80,142,188,7,174,3,80,142,187,7,96,162,48,142,1,80,142,189
  126. 1020 data7,174,2,80,232,224,58,240,13,142,188,7,142,2,80,174,3,80,142,187
  127. 1030 data7,96,162,48,142,2,80,142,188,7,174,3,80,232,142,3,80,142,187,7,96
  128. 1040 rem sprite shapes(12288)
  129. 1050 data126,255,255,126,126,126,126,255,255,126
  130. 1060 data60,60,60,24,255,24,24,60,102,195
  131. 1070 data60,60,60,24,255,24,24,60,102,195
  132. 1080 data60,60,60,24,255,24,24,60,102,195
  133. 1090 data60,60,60,24,255,24,24,60,102,195
  134. 1100 data60,60,60,24,255,24,24,60,102,195
  135. 1110 data60,60,60,24,255,24,24,60,102,195
  136. 1120 data60,60,60,24,255,24,24,60,102,195
  137. 1130 rem joystick left-right(sys20736)
  138. 1135 data160,0,174,0,208,224,32,208,7,173,16,208,41,1,240,41,224,72
  139. 1137 data208,9,173,16,208,41,1,240,2,160,1
  140. 1140 data173,0,220,41,4,208,18,202,202,224,254,208,8,173,16,208,41,254
  141. 1150 data141,16,208,142,0,208,96,136,240,22,173,0,220,41,8,208,15,232,232
  142. 1160 data208,8,173,16,208,9,1,141,16,208,142,0,208,96
  143. 1170 rem people move(sys21024)
  144. 1200 data162,0,160,2,189,2,82,192,1,208,28,24,105,6,201,0,208,11,173,16
  145. 1210 data208,93,19,82,141,16,208,169,0,157,2,208,157,2,82,200,76,96,82,56
  146. 1220 data233,6,201,254,208,11,173,16,208,93,19,82,141
  147. 1230 data16,208,169,254,157,2,208,157,2,82,136,189,3,82,24,105,6
  148. 1240 data201,5,208,28,224,2,240,16,224,4,240,12,173,16,208,93,19,82,141
  149. 1250 data16,208,189,18,82,157,2,208,157,2,82,169,45,157,3,208,157,3,82,232
  150. 1260 data232,224,12,208,146,173
  151. 1270 data15,82,24,105,6,201,5,208,2,169,45,141,15,82,141,15,208,96
  152. 1280 rem gears-joystick updown(sys21251)
  153. 1290 data173,0,220,41,1,208,28,174,0,83,224,52,240,51,232,142,0,83,174
  154. 1300 data1,208,202,202,202,202,202,202,202,202
  155. 1310 data142,1,208,76,70,83,173,0,220,41,2,208,25,174,0,83,224,48,240,18
  156. 1320 data202,142,0,83,174,1,208,232,232,232,232,232,232,232,232,142,1,208
  157. 1330 data173,0,83,141,152,7,174,0,83,224,52,240,64,224,51,208,8,160
  158. 1332 data5,140,2,83,76,129,83,224,50,208,8,160,15,140,2,83,76,129,83,224
  159. 1334 data49,208,8,160,45,140,2,83,76,129,83,224,48,208,6,142,192,7,76,3
  160. 1336 data83,172,1,83,200,140,1,83,208,247,174,2,83,202,142,2,83,208,238,96
  161. 1340 rem collision check(sys21763)
  162. 1350 data173,0,85,201,3,240,14,105,1,141,0,85
  163. 1360 data169,254,45,30,208,45,31,208,96,162,0,169,1,45,30,208,208,8
  164. 1370 data169,1,45,31,208,208,1,96,169,0,141,0,85,169,31,141,24,212
  165. 1380 data189,0,84,141,0,212,232,189,0,84,141,7,212,232,189,0,84,141,1,212
  166. 1390 data232,189,0,84,141,8,212,232,189,0,84,141,4,212,232,189,0,84,141,11
  167. 1400 data212,172,1,85,200,140,1,85,208,247,172,2,85,200,140,2,85,192,20
  168. 1410 data208,236,169,0,141,2,85,232,224,252,208,175,172,1,85,200
  169. 1420 data140,1,85,208,247,172,2,85,200,140,2,85,208,238,141,24,212,96
  170. 1430 rem winding road(sys22020)
  171. 1432 data174,3,86,232,142,3,86,224,5,208,32,162,0,142,3,86
  172. 1434 data32,222,255,162,0,141,2,86,169,1,45,2,86,208,1,232,169,2,45,2,86
  173. 1436 data208,1,232,142,2,86
  174. 1440 data174,0,86,208,5,162,2,142,2,86,174,1,86
  175. 1450 data224,39,208,5,162,0,142,2,86,174,2,86,224,1,208,27,174
  176. 1460 data0,86,169,39,157,0,4,202,224,255,208,248,174,1,86,169,39,157
  177. 1470 data0,4,232,224,40,208,248,96,174,2,86,208,35,174,0,86,202,142,0,86
  178. 1480 data169,39,157,0,4,202,224,255,208,248,174,1,86,202,142,1,86,169,39
  179. 1490 data157,0,4,232,224,40,208,248,96,174,0,86,232,142,0,86,169,39,157
  180. 1500 data 0,4,202,224,255,208,248,174,1,86,232,142,1,86,169,39,157,0,4,232
  181. 1510 data224,40,208,248,96
  182. 1600 y=peek(53249)
  183. 1605 y